2 INPUT"MESSAGE";A$:POKE#429+LEN(A$),0
3 I=1:REPEAT:POKEI+#428,ASC(MID$(A$,I,1))+128:I=I+1:UNTILI=LEN(A$)+1